10 DV=PEEK(186):IFDV<8THENDV=8
100 SYS4096,8,28,2,8,160,6:SYS4096,9,29,1,7,160,14:SYS4096,10,30,0,6,160,3
110 POKE53281,.:POKE53280,.:PRINTCHR$(14)CHR$(8)
111 POKE214,1:POKE211,12:SYS58732:PRINT"[159]1. [211]INGLE [194]OWLER"
112 PRINTTAB(12)"2. [194]OWLING [212]EAM":PRINTTAB(12)"3. [204][207][193][196][211][212][193][210]"
120 POKE214,9:PRINT:PRINT"  [208]LEASE SELECT PROGRAM TO [204][207][193][196]  "
130 GETK$:IFK$=""THEN130
140 K=VAL(K$):IFK<1ORK>3THEN130
150 A$="BOWL":IFK=2THENA$="TEAM"
160 IFK=3THENA$="HELLO CONNECT"
170 CLOSE15:OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
175 IF ER<>63 THEN PRINT"[147]":END
180 SYS4096,0,39,0,9,32,0
190 POKE214,9:PRINT:PRINT"             [204][207][193][196][201][206][199]...          "
200 PRINT"[144]LOAD"CHR$(34)A$CHR$(34)","DV
210 PRINT"RUN"
220 POKE43,1:POKE44,48:POKE12288,0:IFK=3THENPOKE44,8:POKE2048,0
230 POKE631,13:POKE632,13:POKE633,13:POKE198,3
240 END
10000 OPEN15,8,15,"S0:BOWL CONNECT":CLOSE15:SAVE"0:BOWL CONNECT",8:END